home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 May / CHIP Turkiye Mayıs 1998.iso / grafik / il7try.exe / IL7TRY / ARCHIVE.Z / ProcSets.aip / TEXT / 262 < prev    next >
Text File  |  1997-05-07  |  193b  |  5 lines
  1. /, 128 string def
  2. {currentfile , readstring {(,,,,,,,,,,,,,,,,) search
  3. {pop pop pop {currentfile read {46 eq {exit} if} {exit} ifelse} loop exit}
  4. {pop} ifelse} {pop exit} ifelse} bind loop
  5.